Dim name,age,hight,msg,a,b,c,d
msg = "请输入你的名字"
msg1 = "请输入你的年龄"
msg2 = "请输入你的身高"
a="名字:"
b="年龄:"
c="身高:"
d=""
name = InputBox(msg)
age = InputBox(msg1)
hight = InputBox(msg2)
MsgBox a&name&vbCrlf&b&age&vbCrlf&c&hight
